home *** CD-ROM | disk | FTP | other *** search
/ Mac Action 1996 January / mac-action-07.iso / mac / Inside Action / Total Distortion Big Demo / beFooGoo.Dxr / 00049.ls < prev    next >
Encoding:
Text File  |  1995-06-05  |  998 b   |  66 lines
  1. on JumpPage n
  2.   global NowBPage
  3.   puppetSound("JSpcBtn13.AIF")
  4.   set NowBPage to n
  5.   go(string(n))
  6. end
  7.  
  8. on goNowPage
  9.   global NowBPage
  10.   puppetSound("LoYeah01.AIF")
  11.   go(string(NowBPage))
  12. end
  13.  
  14. on PutAway
  15.   puppetSound(0)
  16.   go("exit")
  17. end
  18.  
  19. on BookHelp
  20.   puppetSound("Dogonnit.AIF")
  21.   go("help")
  22. end
  23.  
  24. on initbook n
  25.   global NowBPage, BPageMax
  26.   set the immediate of sprite n to 1
  27.   set NowBPage to 1
  28.   set BPageMax to n
  29. end
  30.  
  31. on PageUp
  32.   global NowBPage, BPageMax
  33.   if NowBPage = BPageMax then
  34.     exit
  35.   else
  36.     set NowBPage to NowBPage + 1
  37.   end if
  38.   puppetSound("BookPage.1")
  39.   go(string(NowBPage))
  40. end
  41.  
  42. on LastPage
  43.   global NowBPage, BPageMax
  44.   puppetSound("Kick.1")
  45.   go(string(BPageMax))
  46.   set NowBPage to BPageMax
  47. end
  48.  
  49. on FirstPage
  50.   global NowBPage, BPageMax
  51.   puppetSound("Kick.1")
  52.   go("1")
  53.   set NowBPage to 1
  54. end
  55.  
  56. on PageDN
  57.   global NowBPage, BPageMax
  58.   if NowBPage = 1 then
  59.     exit
  60.   else
  61.     set NowBPage to NowBPage - 1
  62.   end if
  63.   puppetSound("BookPage.2")
  64.   go(string(NowBPage))
  65. end
  66.